home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
024
/
modula-2
/
m2
/
inout.def
< prev
next >
Wrap
Text File
|
1995-03-17
|
864b
|
33 lines
(********************************************************************************
Name : InOut.DEF
Version : 1.0
Purpose : Fromatted Input Output
Author : ms
State : Only procedures implemented that are needed by dec68k
Modified : 26.3.86 10:45 ms
********************************************************************************)
DEFINITION MODULE InOut;
VAR inOutDone: BOOLEAN;
PROCEDURE OpenInput(ext: ARRAY OF CHAR);
PROCEDURE CloseInput;
PROCEDURE OpenOutput(ext: ARRAY OF CHAR);
PROCEDURE CloseOutput;
PROCEDURE Read(VAR ch: CHAR);
PROCEDURE ReadString(VAR st: ARRAY OF CHAR);
PROCEDURE Write(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(st: ARRAY OF CHAR);
PROCEDURE WriteCard(c: LONGCARD; s: CARDINAL);
PROCEDURE WriteInt(i: LONGINT; s: CARDINAL);
PROCEDURE WriteHex(i: LONGINT; s: CARDINAL);
END InOut.